PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/Library Hyper Card Templates/Open Stack/Acquisitions Help/background_2584.txt

Text File | 1987-12-04 | 12.7 KB | 580 lines

-- background: 2584 from stack: in
-- bmap block id: 4289
-- flags: 0000
-- background id: 0
-- name:


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=256 top=318 right=341 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp

end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=201 top=317 right=340 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp

end mouseUp



-- part 55 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=89 top=88 right=121 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Author


-- part 36 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=66 top=52 right=87 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Title


-- part 57 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=79 top=124 right=141 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Publisher


-- part 51 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=298 top=125 right=141 bottom=361
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Date
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 21 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=55 top=205 right=221 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Price
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if

  put empty into field "total"
  add field "price" to field "total"
  add field "shipping" to field "total"
  add field "tax" to field "total"

end closeField


-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=198 top=205 right=221 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Shipping
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if

  put empty into field "total"
  add field "price" to field "total"
  add field "shipping" to field "total"
  add field "tax" to field "total"

end closeField


-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=294 top=204 right=220 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Tax
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if

  put empty into field "total"
  add field "price" to field "total"
  add field "shipping" to field "total"
  add field "tax" to field "total"

end closeField


-- part 24 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=405 top=202 right=222 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Total
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=85 top=234 right=249 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date paid
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=259 top=233 right=249 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date returned
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 28 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=281 top=318 right=339 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Catalog Screen
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the catalog screen"
end mouseUp


-- part 29 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=383 top=317 right=339 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Circulation Card
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the Circulation Screen"
end mouseUp


-- part 31 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=216 top=276 right=299 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help!


-- part 32 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=350 top=164 right=180 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date ordered
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 33 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=350 top=182 right=198 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date received
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 45 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=500 top=330 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: der
----- HyperTalk script -----
on closeField
  get field "der"
  put the number of this card into cardNum
  set lockScreen to true
  push card
  go to card cardNum of stack "HyperCirc"
  put it into background field "Title"
  pop card
  set lockscreen to false
end closeField



-- part 52 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=134 top=156 right=171 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Vendor number
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 62 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=414 top=233 right=249 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Today's date


-- part 64 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=398 top=122 right=138 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ISBN
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 65 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=399 top=142 right=158 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LCCN
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 67 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=162 top=318 right=340 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  answer "This lets you sort on any field."
end mouseUp



-- part 79 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=9 top=318 right=339 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Labels
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the Labels screen"
end mouseUp



-- part 80 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=90 top=318 right=340 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Control
----- HyperTalk script -----
on mouseUp
  answer"This takes you to the Control stack"
end mouseUp



-- part 106 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=388 top=35 right=52 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Book Number
----- HyperTalk script -----
on closeField
  global fieldList,bookNumber,tentativeBook
  if tentativeBook is true then
    put field "Book Number" into bookNumber
  else

    put word 3 of name of me into tempName
    if not(fieldList contains tempName) then
      put (word 3 of name of me) & "," after fieldList
    end if
  end if
end closeField


-- part 108 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=226 top=301 right=318 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  answer "This lets you find records"
end mouseUp


-- part 109 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=141 top=175 right=197 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vendor Screen
----- HyperTalk script -----
on mouseUp
  answer "This takes you to the Vendor Screen"
end mouseUp